home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / NAME.ICN < prev    next >
Text File  |  1990-03-02  |  459b  |  19 lines
  1. record complex(r,i)
  2.  
  3. procedure main(a)
  4.    static s
  5.    every write(image(name(main | T | L | s | a)))
  6.    T := table()
  7.    L := list(200)
  8.    L1 := []
  9.    every 1 to 200 do push(L1,1)
  10.    write(image(L[10]))
  11.    write(image(name(&error)))
  12.    write(image(name(T["abc"])))
  13.    T["abc"] := 1
  14.    write(image(name(T["abc"])))
  15.    every write(image(name(L[1 | 2 | 3 | -1 | -10])))
  16.    every write(image(name(L1[1 | 2 | 3 | -1 | -10])))
  17.    write(image(name(complex().r)))
  18. end
  19.